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APPENDIX A 

%! 

% (c) Copyright 2001 Adobe Systems Incorporated. 
5 % All rights reserved. 

% PostScript program to illustrate tiling. Tiles the page in 
% userspace and snap each tile to the largest clipping rectangle 
% that contains all of the pixels in device space. Image the entire 
% document with each tile set as a clipping rectangle. No stitching 
10 % errors will appear. 

% Control the tilesize and overlap by setting stepx,stepy and 
% overlap. 

% Put your test file in this procedure. 

% NOTE: Verify that your testfile does not use initclip or 
15 % initgraphics or any graphics operator that resets the pagedevice. 
/DrawTestFile { (dancers.eps) run } bind def 

% userspace step in x and y direction for tiling 
% This creates 72 point or 1 inch squares 
20 /stepx 72 def 
/stepy 72 def 

% tile overlap in userspace coordinates 
% This creates 1/72 of an inch overlaps 
25 /overlap 1 def 

% get extents of the page to print 

currentpagedevice /PageSize get (PageSize is ) print dup == aload pop 
/maxy exch def 
30 /maxx exch def 

% remember the default matrix 
/defmatrix matrix currentmatrix def 

35 % computeclip - convert clippath in userspace to device space 
% coordinates. Modify to the nearest whole pixel included 
% in the clipping path. 

/computeclip % xl yl x2 y2 computeclip xl yl delx dely 



4 -2 roll % x2 y2 xl yl 

transform ceiling exch ceiling exch % x2 y2 xl ' yl' 

4 -2 roll % xl' yl' x2 y2 

transform floor exch floor exch % xl 1 yl ' x2 y2 

2 index sub % xl 1 yl ' x2 ' dely 
exch % xl ' yl • dely x2 ' 

3 index sub % xl ' yl ' dely delx 
exch % xl 1 yl 1 delx dely 

} bind def 

% image the page through each tile by creating overlapping 
% rectangles and then snapping them to the physical grid 
0 stepx maxx { 
/curx exch def 
0 stepy maxy { 

/cury exch def 
/cursave save def 

% compute the expanded tile 

curx overlap sub 

cury overlap sub 

curx stepx add overlap add 

cury stepy add overlap add 

% snap the tile to the grid 

computed ip 

(rectclip is ) print 4 array astore dup == flush aload pop 

% move into device coordinates 
[10 0 10 0] setmatrix 
rectclip 

/showpage { } bind def 

% can also redefine initclip, initgraphics and setpagedevice 
defmatrix setmatrix 
DrawTestFile 



cursave restore 
} for 

} for 
showpage 



